home *** CD-ROM | disk | FTP | other *** search
- // VirtuaLight VIB-Structure
-
- ReadArchive "defshaders.vs"
-
- Camera [ (0,5,-8),(0,0,0),(0,1,0) FieldOfView 45 Format(320, 240) FrameAspectRatio 4/3 ]
-
- Background '.098039, .098039, .392157'*0.9
-
- PointLight [ (-50,50, -50) Intensity i ]
- PointLight [ (55,40, -40) Intensity i ]
- PointLight [ (-20,40, 55) Intensity i/4 LightingAttributes SPECULAR ]
-
- Shape [
- ImplicitPlanarHeightField(-4, 4, -4, 4, 0.3 * cos(x * z + radians(CurrentFrame)), 128, 128, SmoothNormal)
- primitive
- ]
-
- Shape [ Disk((0,-2,0), (0,1,0), 500) ground ]